home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / RISCBBS / !RiscBBS / Menus / Filebase / Main < prev    next >
Text File  |  1992-02-24  |  2KB  |  71 lines
  1. {
  2.  report `Main file menu`
  3.  
  4.  defopt C= `Change area` 10 ``
  5.    a_list F
  6.    a_change F
  7.  endopt
  8.  
  9.  defopt U= `Upload file(s)` 10 `` 
  10.    menu Filebase.Upload
  11.  endopt
  12.  
  13.  defopt D= `Download file(s)` 10 ``
  14.    menu Filebase.Download
  15.  endopt
  16.  
  17.  defopt Q= `Queue maintenance` 10 ``
  18.    menu Filebase.QueueMaint
  19.  endopt
  20.  
  21.  defopt V= `View archive` 10 ``
  22.    menu Filebase.ViewArc
  23.  endopt
  24.  
  25.  defopt B= `Browse files` 10 ``
  26.    menu Filebase.FileList
  27.  endopt
  28.  
  29.  defopt L= `Local locate` 10 ``
  30.    attr 0 2 eoln
  31.    tx `Enter (partial) name to search for: `
  32.    fg 7 read V0 30 eoln
  33.    f_search V0
  34.    a_reset B
  35.    f_list `1 L F`
  36.    if RET=0
  37.      menu Filebase.LocLocate
  38.    endif
  39.  endopt
  40.  
  41.  defopt G= `Global locate` 10 ``
  42.    attr 0 2 eoln
  43.    tx `Enter (partial) name to search for: `
  44.    fg 7 read V0 30 eoln
  45.    f_search V0
  46.    a_reset `A0 B G`
  47.    f_list `1 G L F`
  48.    if RET=0
  49.      menu Filebase.GlobLocate
  50.    endif
  51.  endopt
  52.  
  53.  defopt Z= `Zip new files` 10 ``
  54.    menu Filebase.NewScan
  55.  endopt
  56.  
  57.  attr 0 7 
  58. }
  59. {attr 4 3}  -- {_base} : {_area} --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  60.  
  61.      [{fg 1}C{fg 7}]hange area                        [{fg 1}Z{fg 7}]ip through new files 
  62.  
  63.      [{fg 1}B{fg 7}]rowse through files               [{fg 1}Q{fg 7}]ueue maintenance
  64.  
  65.      [{fg 1}U{fg 7}]pload file(s)                     [{fg 1}L{fg 7}]ocal file locate
  66.      [{fg 1}D{fg 7}]ownload file(s)                   [{fg 1}G{fg 7}]lobal file locate
  67.  
  68.      [{fg 1}V{fg 7}]iew archive contents              [{fg 1}M{fg 7}]ain Menu
  69.  
  70.  {show <RiscBBS$Dir>.BBS.Select eof}
  71.